﻿Public Class KOGraves
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "GRAVES"
        Armee = Armeen.DM.ToString
        Musik = "Graves"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 3
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If OhneFunktion = False Then
            Laehmungsschaden(1, 3)
            AnimationFeindliche("DRAKEGABE", 2)

        End If
        Laehmschaden = 3
        GabeEingesetzt()
    End Sub
    Public Overrides Function GetPowerScript(ByVal Power As Integer) As KOCustom.Power.PowerScript
        Select Case Power
            Case 1
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectMassDamageMoveStop(1, 3))
                Return P
            Case 2
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectMassDamageMoveStop(2, 4))
                Return P
            Case Else
                Return Nothing
        End Select
    End Function
    Public Overrides Sub KOLaden()
        Laehmschaden = 2
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWars Then
            If OhneFunktion = False Then
                Laehmungsschaden(1, 3)
                AnimationFeindliche("DRAKEGABE", 2)
            End If
            Laehmschaden = 3
            GabeEingesetzt()
        Else
            If OhneFunktion = False Then
                Laehmungsschaden(2, 4)
                AnimationFeindliche("DRAKEGABE", 2)
            End If
            Laehmschaden = 4
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

Public Class KOBeschreibungGraves
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Graves"
        Fein = "Raetselromane"
        Nein = "Liebesromane"
        Beschreibung = New String() {"Ein dunkler KO von Dark Matter Defense Services,", "sie hat aehnliche Ambitionen wie", "Maverik. Es geht ihr nur um", "den Sieg."}
        Stil = New String() {"Feindliche Truppen, die", "nach einem Kampf wenige TP", "haben werden geschockt."}
        Gabebeschreibung = New String() {"Alle Feinde verlieren 1 TP und", "Einheiten mit weniger als 3TP werden", "geschockt."}
        SpezialgabeBeschreibung = New String() {"Alle Feinde verlieren 2 TP und", "Einheiten mit weniger als 4 TP werden", "geschockt."}
        GabeKosten = 3
        Spezialgabekosten = 4
        Gaben = New String() {"Plage", "Verderben"}
        Synergie = New Decimal() {2, 2, 1.5#, 1, -1, -1.5#, -1.5#, -1.5#, -2, 0.5#}
        KONamen = New String() {"AIN", "MAVERIK", "THANATOS", "FALCONE", "EAGLE", "ADDER", "EMBER", "RACHEL", "NELL", "NAPOLEON"}
        Doppelgabenamen = New String() {"Ideale", "Antagonisten Entscheidung", "Entweihung", "Memento Mori", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe"}
        Gabesaetze = New String() {"Furcht ist eine maechtige Waffe. Du wirst lernen wie man sie benutzt!" _
                                , "Bevorzugst du denn Tod so sehr?" _
                                , "Du musst alles geben, wenn du gewinnen willst." _
                                , "Du bist schlecht vorbereitet, wenn du mich schlagen willst." _
                                , "Ein schoener Fortschritt. Leider zwecklos!" _
                                , "Mach dich bereit."}
        Siegsaetze = New String() {"Das war es schon. ...Ich hab dich ueberschaetzt." _
                                , "So eine Schande. ...war viel zu leicht." _
                                , "Du haettest dir viel ersparen koennen, haettest du die Fakten akzeptiert."}
        Tauschsaetze = New String() {"Fuerchte den Schatten der Aufersteht um dich zu treffen." _
                                    , "Ich werde dir Furcht in Huelle und Fuelle zeigen."}
        Doppelgabesaetze = New DoppelGabesatz() {New DoppelGabesatz("AIN", "GRAVES", "Ironisch wie jemand fuer Frieden kaempfen muss.", "Wenn jemand leben will, muss jemand anderes sterben.") _
                                              , New DoppelGabesatz("GRAVES", "AIN", "Menschen sind wie Wiesen. Das Gras bleibt und die Blumen sterben.", "Diese Worte werden fuer immer in Erinnerung bleiben!") _
                                              , New DoppelGabesatz("GRAVES", "MAVERIK", "Sie werden wieder sinnlos Menschen opfern.", "Das unvermeidbare, wenn Menschen denken sie waeren stark!") _
                                              , New DoppelGabesatz("MAVERIK", "GRAVES", "Sinnlos!", "Ihr habt keine Chance.") _
                                              , New DoppelGabesatz("GRAVES", "THANATOS", "Zu denken sie koennten uns widerstehen.", "Ich liebe es ihre verrueckten Traeume zu zerstoeren.") _
                                              , New DoppelGabesatz("THANATOS", "GRAVES", "Kenne deine Feinde wie deine Freunde und niemand wird dich ueberraschen!", "Schuetze dich ihn alle Richtungen und niemand wird es versuchen!") _
                                              , New DoppelGabesatz("GRAVES", "FALCONE", "Die ohne Ziel haben keine Chance.", "Haengende Menschen brauchen etwas wofuer sie kaempfen!") _
                                              , New DoppelGabesatz("FALCONE", "GRAVES", "Die Narren denken sie haben eine Chance!", "Ihnen fehlt eine Vision und etwas wafuer sie kaempfen.")}
        Niederlagesaetze = New String() {"Unerwartet, aber nicht das Ende.", _
                                     "Ich habe euch wohl unterschaetzt."}
    End Sub
End Class
